{
 Makarova Liza.
 25.09.12
 Programma ukazyvaet na massiv, zapolnyaet i stiraet ego.
}
program Ukazatel;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  arr = array [0..100] of integer;

var
  a: ^arr;
  i: integer;
begin
  randomize;
  new (a);
  for i:= 0 to 100 do
    a^[i]:= random(10000);
  dispose(a);
end.
 